﻿Imports DTO
Imports BUS
Public Class frmThemKhuVuc

    Public Delegate Sub ThemKV(kv As KhuVucDTO)

    Public Event LamMoiKVKhiThem As ThemKV

    Public maKV As String
    Public TenKV As String
    Public GhiChu As String
    Public MaTT As Integer

    Public kt As Integer = 0

    Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles btnDong.Click
        KhuVucBUS.DongKetNoi.Close()
        Me.Close()
    End Sub

    Sub ThemKhuVuc()
        KhuVucBUS.DongKetNoi.Close()
        Dim KhuVucDTO As New KhuVucDTO
        KhuVucDTO.TenKhuVuc = txtThemTenKV.Text.Trim()
        KhuVucDTO.GhiChu = txtThemGhiChu.Text.Trim()
        If chkConQuanLy.Checked = True Then
            KhuVucDTO.MaTrangThai = 1
        Else
            KhuVucDTO.MaTrangThai = 0
        End If
        If KhuVucBUS.KiemTra_ThemKhuVuc(KhuVucDTO) Then
            DevExpress.XtraEditors.XtraMessageBox.Show("Bạn đã thêm thành công", "Thông Tin", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Dim nd As New NguoiDungDTO
            HeThongBUS.themNhatKy(frmMain.maND, "Danh Mục", "Thêm", maKV)
        Else
            DevExpress.XtraEditors.XtraMessageBox.Show("Bạn chưa nhập tên khu vực vui lòng nhập tên khu vực", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
        RaiseEvent LamMoiKVKhiThem(KhuVucDTO)
    End Sub

    Sub CapNhatKhuVuc()
        KhuVucBUS.DongKetNoi.Close()
        Dim KhuVucDTO As New KhuVucDTO
        KhuVucDTO.MaKhuVuc = txtThemMaKV.Text.Trim()
        KhuVucDTO.TenKhuVuc = txtThemTenKV.Text.Trim()
        KhuVucDTO.GhiChu = txtThemGhiChu.Text.Trim()
        If chkConQuanLy.Checked = True Then
            KhuVucDTO.MaTrangThai = 1
        Else
            KhuVucDTO.MaTrangThai = 0
        End If
        If KhuVucBUS.CapNhapKhuVuc(KhuVucDTO) Then
            DevExpress.XtraEditors.XtraMessageBox.Show("Cập nhập thành công Khu Vực", "Thành Công", MessageBoxButtons.OK, MessageBoxIcon.Information)
            HeThongBUS.themNhatKy(frmMain.maND, "Danh Mục", "Cập nhật", maKV)
        Else
            DevExpress.XtraEditors.XtraMessageBox.Show("Bạn chưa nhập tên khu vực vui lòng nhập tên khu vực", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Private Sub btnLuu_Click(sender As Object, e As EventArgs) Handles btnLuu.Click
        NhanVienBUS.DongKetNoi.Close()
        If kt = 1 Then
            Dim pq As PhanQuyenNhonNDDTO = ChucNangBUS.layQuyenCuaND(frmMain.maND, 17)
            If pq.Sua = True Then
                CapNhatKhuVuc()
            Else
                DevExpress.XtraEditors.XtraMessageBox.Show("Xin lỗi bạn không có quyền này", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Else
            Dim pq As PhanQuyenNhonNDDTO = ChucNangBUS.layQuyenCuaND(frmMain.maND, 17)
            If pq.Them = True Then
                ThemKhuVuc()
            Else
                DevExpress.XtraEditors.XtraMessageBox.Show("Xin lỗi bạn không có quyền này", "Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End If
    End Sub

    Private Sub frmThemKhuVuc_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        chkConQuanLy.Checked = True
        If kt = 1 Then
            txtThemMaKV.Text = maKV
            txtThemTenKV.Text = TenKV
            txtThemGhiChu.Text = GhiChu
            If MaTT = 1 Then
                chkConQuanLy.Checked = True
            Else
                chkConQuanLy.Checked = False
            End If
        End If
    End Sub
End Class